(set-coding-priority): Call

set-coding-priority-internal at the tail.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 523a9802df4b42d947002dfe2385f2f358cdbb8b..438839479ba7ff0804146c5f9d8b3ce68a109290 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -769,7 +769,8 @@ LIST is a list of coding categories ordered by priority."
       (setq current-list (delq (car l) current-list))
       (setq l (cdr l)))
     ;; Update `coding-category-list' and return it.
-    (setq coding-category-list (append arg current-list))))
+    (setq coding-category-list (append arg current-list))
+    (set-coding-priority-internal)))
 
 ;;; FILE I/O